home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / docs / hyper / BibelGuide01.lha / DieBibel / HTDS-Meldung.rexx < prev    next >
OS/2 REXX Batch file  |  1998-10-04  |  1KB  |  26 lines
  1. Offen=OPEN(Ausgabe,"CON:20/20/620/150/BibelInfoRexx/auto/CLOSE/wait")
  2. address command
  3. 'version SYS:Classes/DataTypes/hyperguide.datatype >env:hgvers'
  4. hgvers=open(hgvers,'env:hgvers','R')
  5. Offen=OPEN(Ausgabe,"CON:20/20/620/150/Die Hypertext Biebel/CLOSE/wait")
  6. IF Offen THEN
  7.   DO
  8.     WRITELN(Ausgabe,"Für die volle Schönheit und Funktionalität")
  9.     WRITELN(Ausgabe,"dieser Bibel.guides benötigt man dringend")
  10.     WRITELN(Ausgabe," Das HyperText-Datatype-System HTDS")
  11.     WRITELN(Ausgabe,"von Stefan Ruppert.")
  12.     WRITELN(Ausgabe," ")
  13.     WRITELN(Ausgabe,"Du besitzt es schon?!: " hgvers)
  14. /* WRITELINE(Ausgabe,'version SYS:Classes/DataTypes/hyperguide.datatype') */
  15.     WRITELN(Ausgabe," ")
  16.     WRITELN(Ausgabe,"Wenn nicht: Zu finden ist es unter folgenden Adressen:")
  17.     WRITELN(Ausgabe," http://home.pages.de/~Ruppert/amiga/HTDS.html ")
  18.     WRITELN(Ausgabe," FTP: Aminet:util/dtype/HTDS.lha ")
  19.     WRITELN(Ausgabe," http://www.amigaworld.com/support/HTDS/ ")
  20.   END
  21. DO I=1 TO 1000 /* KLEINE SCHLEIFE */
  22.  zahl=I+15
  23. call close(Ausgabe)
  24. END
  25. EXIT
  26.